home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tm480.zip / INSTALL.TSK < prev    next >
Text File  |  1991-10-22  |  27KB  |  1,061 lines

  1. ;Taskmaster installer: Written Aug 1991 by Steve Johnson/Mike Eastham.
  2.  
  3. go 1DATA        ;data definitions at end of task
  4. 1START
  5.  
  6. display cls
  7. move true to hide
  8. dir 'INSTALL.OVR'
  9. if not found
  10.   insert filename filename
  11.   put no_forms nowait
  12.   stop 1
  13. fi
  14.  
  15. forms install.ovr
  16. insert tversion iversion ldate
  17. put foreword nowait ul
  18. inkey char
  19. insert iversion 
  20. if build@ = 1
  21.   insert professional
  22. else
  23.   insert shareware
  24. fi
  25. insert tversion
  26. put welcome nowait ul
  27. move ldspec to char
  28. if not ldspec ct 'tm.exe' or char > 'B'
  29.   combine ldspec 68 into dest
  30.   insert dest
  31.   put wrongtm nowait
  32.   stop 2
  33. fi
  34. dir ldspec 
  35. if found
  36.   move display to lmess
  37.   clear refdate crud refname
  38.   move zero to delim
  39.   setscan lmess 22
  40.   scan refdate crud refname
  41.   if refname ct zero
  42.     sizevar refname fcol
  43.   fi
  44. fi
  45. move ddrive to orig_drive
  46. if comspec ne null
  47.   dir comspec
  48.   if not found
  49.     insert comspec
  50.     put bad_comspec nowait
  51.     stop 3
  52.   fi
  53. else
  54.   dir 'C:\COMMAND.COM'
  55.   if not found
  56.     put no_comspec nowait
  57.     stop 4
  58.   fi
  59. fi
  60. if fmpdir ne null
  61.   combine fmpdir 68 into dest
  62.   insert dest
  63.   move 'dest1' to formname
  64. else
  65.   combine 'C:\FMP' 68 into dest
  66.   move 'dest2' to formname
  67. fi
  68. fieldfill dest
  69. put formname nodata noclear
  70. clear pathok
  71. until pathok
  72.   fieldfill dest
  73.   put formname nodisp noclear
  74.   if funkey = 10
  75.     stop 5
  76.   fi
  77.   if funkey = 1
  78.     popfree sid
  79.     popscreen sid
  80.     put dirhelp nowait ul
  81.     inkey char
  82.     popdown sid
  83.   else    
  84.     get dest
  85.     move dest to char
  86.     upper char
  87.     if dest sw '~:\' and char >= 'A' and char <= 'Z' and char <> ddrive
  88.       move true to pathok
  89.     fi
  90.   fi
  91. fi
  92. replace all '\\' of dest with '\'
  93. trim dest
  94. upper dest
  95. select dest
  96. user dest
  97. if resp = 0
  98.   move 'Already exists' to message
  99. else 
  100.   dir dest
  101.   if found
  102.     put file_name nowait ul
  103.     stop 6
  104.   fi
  105.   run 'mkdir ' dest
  106.   user dest
  107.   if resp ne 0
  108.     put cant_create nowait ul
  109.     stop 7
  110.   fi
  111.   move 'Created successfully' to message
  112. fi
  113. dspace
  114. move display to dest_space
  115. insert dest message dest_space
  116.  
  117. if dest_space < max_space
  118.   if dest_space < min_space
  119.     move 'noroom' to formname
  120.   else
  121.     move 'someroom' to formname
  122.   fi
  123. else
  124.   move 'muchroom' to formname
  125. fi
  126.  
  127. clear proceed
  128. move 'Y' to char2
  129. fieldfill char2
  130. put formname nodata noclear
  131. until proceed
  132.   fieldfill char2
  133.   put formname nodisp noclear
  134.   get char2
  135.   if funkey = 1
  136.     popfree sid
  137.     popscreen sid
  138.     put spacehelp nowait ul
  139.     inkey char
  140.     popdown sid
  141.   else
  142.     move char2 to proceed
  143.     if not proceed
  144.       stop 8
  145.     fi
  146.   fi
  147. fi
  148. if build@ = 1            ;Taskmaster Professional
  149.   move 10 to product_entry
  150. fi
  151. if build@ = 2            ;Registered shareware
  152.   move 5 to product_entry
  153. fi
  154. move product_entry to i
  155. clear file j
  156. find corefiles = file        ;add names of relevant archive files
  157. until j = filesets        ;to the corelist
  158.   if entry i of options = 'A'
  159.     move entry j of archives to file
  160.     trim file
  161.     combine file '.EXE' into entry row of corefiles
  162.     increment row
  163.   fi
  164.   increment i
  165. fi j
  166. insert entry build@ of product_names
  167. put filecheck nowait
  168. select orig_drive
  169. move 6 to column
  170. move 13 to line
  171. move 'x' to file
  172. until file = spaces
  173.   move entry count of corefiles to file
  174.   if file <> spaces
  175.     cursor line column file
  176.     trim file
  177.     dir file
  178.     if found
  179.       if file ct '.exe'
  180.         move display to lmess
  181.         clear crud 
  182.         move zero to delim
  183.         setscan lmess 22
  184.         scan crud 
  185.         if crud ne refdate
  186.           move true to inconsistant
  187.         fi
  188.       fi
  189.       fore 14
  190.       display 1 tick 1
  191.       fore 15
  192.     else
  193.       increment missing
  194.     fi
  195.     add 16 to column
  196.     if column > 64
  197.       move 6 to column
  198.       increment line
  199.     fi
  200.   fi
  201. fi count
  202. if missing ne 0
  203.   put files_missing nowait
  204.   stop 9
  205. fi
  206. if inconsistant
  207.   put files_inconsistant nowait
  208.   stop 11
  209. fi
  210. wait 1
  211. move product_entry to j
  212. clear i
  213. until choice <> 0
  214.   increment i
  215.   if entry j of options = 'A'
  216.     move i to choice
  217.   fi
  218. fi j
  219. put menu nodata nowait
  220. move product_entry to i
  221. move menutop to line
  222. clear j
  223. fore 14
  224. until j = filesets
  225.   if entry i of options = 'U'
  226.     cursor line legendpos na
  227.   fi
  228.   increment i line
  229. fi j
  230. fore 15
  231. display dsb
  232. move '1CHECK1' to return_loc
  233. select dest
  234. user dest
  235. clear fileset
  236. move product_entry to i
  237. until fileset = filesets
  238.   if entry i of options = 'A'
  239.     go 1CHECK
  240. 1CHECK1
  241.   fi
  242.   increment i
  243. fi fileset
  244. display enb
  245. move 0f800h to bbmask
  246. clear bbdisp
  247. menu 1,menu
  248. option 1,31
  249.   popfree sid
  250.   popscreen sid
  251.   move 8000h to bbmask
  252.   move hilite to main_choice
  253.   move lasthelp to choice
  254.   menu 11,help
  255.   option 11,30 ;esc
  256.   move hilite to lasthelp
  257.   popdown sid
  258.   move main_choice to choice 
  259.   clear bbdisp
  260.   fore 15
  261.   back 0
  262.   return 1 
  263.   option 11,default
  264.   move display to formname
  265.   trim formname
  266.   put formname nowait
  267.   clear bbdisp
  268.   return
  269. option 1,32
  270.   popfree sid
  271.   popscreen sid
  272.   display cls
  273.   run 'dir/w'
  274.   wait
  275.   popdown sid
  276.   clear bbdisp
  277.   move hilite to choice
  278.   return
  279. option 1,1,5
  280.   popfree sid
  281.   popscreen sid 
  282.   clear bbdisp vidline
  283.   subtract 1 from choice giving fileset
  284.   add fileset to menutop giving optline
  285.   scanvid optline giving vidline
  286.   add fileset to product_entry giving i
  287.   if entry i of options = 'U'
  288.     return
  289.   fi
  290.   move zero to delim
  291.   clear char
  292.   setscan vidline legendpos
  293.   scan char
  294.   if char = tag or char = partial
  295.     insert display dest
  296.     put already_installed nowait
  297.     inkey char
  298.     popdown sid
  299.     move true to bbdisp
  300.     move 6 to choice
  301.     return
  302.   fi
  303.   scanvid menutop giving vidline
  304.   if not vidline ct tag and choice = 2 or choice = 3
  305.     put badorder nowait ul
  306.     inkey char
  307.     popdown sid
  308.     return
  309.   fi
  310.   combine orig_drive ':' entry fileset of archives into unpack
  311.   display cls
  312.   run unpack
  313.   clear vidline
  314.   scanvid 0 giving vidline
  315.   if vidline ct 'bad command' or resp <> 0
  316.     popdown sid
  317.     insert unpack
  318.     put badarc nowait ul
  319.     inkey char
  320.     popdown sid
  321.     return
  322.   fi
  323.   clear i vidline
  324.   until i = 23
  325.     scanvid i giving vidline
  326.     if vidline sw '[Y/N] N' or vidline ct '^C'
  327.       popdown sid
  328.       fore 15
  329.       back 0
  330.       return
  331.     fi
  332.   fi i
  333.   popdown sid
  334.   put info nowait
  335.   if fileset <> 1 and fileset <> 2
  336.     cursor 3 6 time '  Installing essential files ...'
  337.     clear count
  338.     move 1 to mask
  339.     until count = essential
  340.       move entry count of essential_files to file
  341.       upper file
  342.       trim file
  343.       if file <> 'SCR.EXE'
  344.         cursor 4 6 40
  345.         combine 'COPY ' orig_drive ':\' file ' /v >nul' into command
  346.         cursor 4 6 time 2 command
  347.         run command
  348.       fi
  349.       attrib set mask file
  350.     fi count
  351.   fi
  352.   display dsb
  353.   move fileset to char
  354.   find issue_files sw char
  355.   add 1 to row giving count
  356.   move 'x' to file
  357.   cursor 3 6 time '  Creating screen template files with SCR ...'
  358.   until file = spaces
  359.     move entry count of issue_files to file
  360.     move file to char
  361.     if file ne spaces and char >= 'a' and char <= 'z' 
  362.       upper file
  363.       trim file
  364.       move file to ovrfile
  365.       replace '.TSK' of ovrfile with '.OVR'
  366.       replace '.MAC' of ovrfile with '.OVR'
  367.       cursor 4 6 40
  368.       cursor 4 6 time '  SCR ' file '/Q'
  369.       run 'scr ' file '/q >nul:'
  370.       if elevel <> 0
  371.         display enb
  372.         insert ovrfile file
  373.         put badmac noclear ul 
  374.         get proceed
  375.         if not proceed
  376.           stop 10
  377.         fi
  378.       fi
  379.     fi
  380.   fi count
  381.   fore 15
  382.   back 0
  383.   dspace
  384.   popdown sid
  385.   cursor freeline 36 display
  386.   move '1CHECK2' to return_loc
  387.   go 1CHECK
  388. 1CHECK2
  389.   popfree sid
  390.   popscreen sid
  391.   if missing = 0
  392.     move true to installed
  393.   fi
  394.   display enb
  395.   return
  396. option 1,6
  397.   move true to deleting
  398.   move '1CHECK3' to return_loc
  399.   clear fileset
  400.   move product_entry to i
  401.   until fileset = filesets
  402.     if entry i of options = 'A'
  403.       go 1CHECK
  404. 1CHECK3
  405.     fi
  406.     increment i
  407.   fi fileset
  408.   find issue_files sw '99'
  409.   move '2CHECK1' to return_loc
  410.   go 2CHECK
  411. 2CHECK1
  412.   popfree sid
  413.   popscreen sid
  414.   fore 15
  415.   back 0
  416.   clear bbdisp deleting
  417.   return
  418. option 1,33        ;function key 3
  419.   popfree sid
  420.   popscreen sid
  421.   select orig_drive
  422.   run 'list vendor.doc'
  423.   select dest
  424.   popdown sid
  425.   clear bbdisp
  426.   move hilite to choice
  427.   return
  428. option 1,34        ;function key 4
  429.   clear bbdisp
  430.   if hilite > filesets
  431.     move hilite to choice
  432.     return
  433.   fi
  434.   popfree sid
  435.   popscreen sid
  436.   cursor 8 20 3 'Fileset: ' display 4
  437.   cursor 23 35 mark
  438.   move hilite to main_choice
  439.   subtract 1 from hilite giving fileset
  440.   move fileset to char
  441.   find issue_files sw char
  442.   add 1 to row giving count
  443.   move 'x' to file
  444.   clear i inserts
  445.   until file = spaces
  446.     move entry count of issue_files to file
  447.     if file <> spaces
  448.       upper file
  449.       move file to entry i of inserts
  450.       increment i
  451.     fi
  452.   fi count
  453.   move true to bbdisp
  454.   clear choice
  455.   move 8000h to bbmask
  456.   menu 3,showfileset,inserts
  457.   option 3,1,25
  458.     combine '.' display into selection
  459.     trim selection
  460.     move '\' to delim
  461.     clear i desc descs
  462.     if filedescs ct selection
  463.       setscan filedescs fcol
  464.       scan file
  465.       until desc = null
  466.         clear desc
  467.         scan desc
  468.         trim desc
  469.         if desc <> null
  470.           move desc to entry i of descs
  471.         fi
  472.       fi i
  473.     fi
  474.     insert descs
  475.     display dsb
  476.     put filedet nowait ul
  477.     display enb
  478.     clear bbdisp
  479.     return
  480.   option 3,30
  481.     popdown sid
  482.     move main_choice to choice
  483.     clear bbdisp
  484.     return 1
  485.   endm 3
  486. endm 1
  487.  
  488. 1CHECK
  489.   clear missing located mask
  490.   add menutop to fileset giving optline
  491.   fore 14
  492.   cursor optline busypos ptr
  493.   move fileset to char
  494.   find issue_files sw char
  495. 2CHECK
  496.   add 1 to row giving count
  497.   move 'x' to file
  498.   until file = spaces
  499.     move entry count of issue_files to file
  500.     move file to char
  501.     if file ne spaces 
  502.       clear deleted
  503.       increment located
  504.       upper file
  505.       trim file
  506.       dir file
  507.       if resp = 0
  508.         if deleting
  509.           attrib set mask file        ;unset all attributes
  510.           if file ct '*'
  511.             run 'del ' file
  512.           else
  513.             erase file
  514.           fi
  515.           increment missing
  516.           move true to deleted
  517.         fi
  518.       else
  519.         increment missing
  520.       fi
  521.       if deleting and char >= 'a' and char <= 'z'
  522.         replace '.TSK' of file with '.OVR'
  523.         replace '.MAC' of file with '.OVR'
  524.         dir file
  525.         if found
  526.           attrib set mask file        ;unset all attributes
  527.           erase file
  528.           move true to deleted
  529.         fi
  530.       fi
  531.       if deleted
  532.         dspace
  533.         cursor freeline 36 display
  534.       fi
  535.     fi
  536.   fi count
  537.   cursor optline busypos 1
  538.   if return_loc ne '2CHECK1'
  539.     cursor optline legendpos
  540.     if missing = 0
  541.       display tag
  542.     else
  543.       if missing < located
  544.         display partial
  545.       else
  546.         display 1
  547.       fi
  548.     fi
  549.   fi
  550.   fore 15
  551.   dspace
  552.   cursor freeline dircol 'Free bytes on install drive = ' display
  553.   cursor dirline dircol dest
  554.   goback return_loc
  555.  
  556. option 1,30        ;escape key
  557.   trim dest
  558.   move dest to char
  559.   combine char ':\FMP.BAT' into file
  560.   clear count
  561.   behave 3 file
  562.   move dashes to lmess
  563.   data 'echo off' crlf
  564.   data 'echo ' lmess crlf
  565.   data 'ECHO FmP INSTALL: Suggested changes to be applied to AUTOEXEC.BAT:' crlf
  566.   data 'ECHO (based on the environment existing when INSTALL was run)' crlf
  567.   data 'ECHO After applying the changes; this file (FMP.BAT) will not be required.' crlf
  568.   data 'echo ' lmess crlf
  569.   move $prompt to char
  570.   if char = null
  571.     increment count
  572.     data 'echo ' count '. Add a PROMPT command like: "PROMPT $p$g"' crlf
  573.     data 'PROMPT $p$g' crlf
  574.     data 'echo ' lmess crlf
  575.   fi
  576.   move $path to workline
  577.   if workline = null
  578.     increment count
  579.     data 'echo ' count '. Add a PATH command like: "PATH ' dest '"' crlf 
  580.     data 'PATH ' dest crlf
  581.     data 'echo ' lmess crlf
  582.   else
  583.     if not workline ct dest 
  584.       increment count
  585.       data 'echo ' count '. Add ";' dest '" to your existing PATH command' crlf 
  586.       data 'PATH ' $PATH ';' dest crlf
  587.       data 'echo ' lmess crlf
  588.     fi
  589.   fi
  590.   move $append to workline
  591.   if workline = null
  592.     increment count
  593.     data 'echo ' count '. The first APPEND command should be "APPEND /E"' crlf
  594.     data 'echo ' lmess crlf
  595.     increment count
  596.     data 'echo ' count '. Add ";' dest '" to your existing APPEND command if you have one' crlf
  597.     data 'echo        else add the command "APPEND ' dest '"' crlf
  598.     data 'echo ' lmess crlf
  599.   else
  600.     if not workline ct dest 
  601.       increment count
  602.       data 'echo ' count '. Please add ";' dest '" to your existing APPEND command' crlf
  603.       data 'APPEND ' $APPEND ';' dest crlf
  604.       data 'echo ' lmess crlf
  605.     fi
  606.   fi
  607.   move $fmpdir to workline
  608.   if workline = null  
  609.     increment count
  610.     data 'echo ' count '. Please add the command:' crlf
  611.     data 'echo        "SET FMPDIR=' dest '"' crlf 
  612.     data 'SET FMPDIR=' dest crlf
  613.     data 'echo ' lmess crlf
  614.   else
  615.     if not workline ct dest
  616.       increment count
  617.       data 'echo ' count '. Please update your set command to:' crlf
  618.       data 'echo        "SET FMPDIR=' dest '"' crlf 
  619.       data 'SET FMPDIR=' dest crlf
  620.       data 'echo ' lmess crlf
  621.     fi
  622.   fi
  623.   if count = 0
  624.     data 'echo System is set up as per FmP advice' crlf
  625.   fi
  626.   data 'echo ' lmess crlf
  627.   move dest to char
  628.   data char ':' crlf 
  629.   data 'CD ' dest crlf
  630.   data 'ECHO Please enter "TM OVERVIEW<return>" to run Taskmaster' crlf
  631.   data 'echo ' lmess crlf
  632.   data 'echo on'
  633.   behave 0
  634.   insert file
  635.   if installed
  636.     put info1 nowait ul
  637.   else
  638.     put info2 nowait ul
  639.   fi
  640.   stop
  641.  
  642. 1DATA
  643.  
  644. var iversion,5,'V1.00'
  645. var tversion,5,'V4.80'
  646. var crud,4
  647. var refdate,4
  648. var refname,12
  649.  
  650. define busypos,5    ;column number for busy marker
  651. define dirline,21    ;line number for directory name
  652. define dircol,6        ;column number for directory name
  653. define essential,9    ;number of essential files
  654. define filesets,5    ;number of filesets
  655. define freeline,20    ;line number for 'free space' message
  656. define legendpos,36    ;column number for status legend
  657. define menutop,12    ;first line of main menu
  658.  
  659. hexvar crlf,0d0a    ;carriage-return/linefeed
  660. hexvar esc,1b        ;escape character
  661. hexvar mark,1f        ;block down arrow
  662. hexvar na,16        ;'not available' symbol
  663. hexvar ptr,10        ;'checking' symbol
  664. hexvar partial,0c    ;'partial install' symbol
  665. hexvar tag,0f        ;'installed' symbol
  666. hexvar tick,fb        ;'tick' symbol
  667.  
  668. int att            ;file attribute
  669. int column        ;gp cursor column
  670. int count        ;gp counter
  671. int i,j            ;gp counters
  672. int fcount        ;counter used on mono only
  673. int fileset            ;fileset indicator
  674. int lasthelp        ;last help selection topic number
  675. int line        ;gp cursor line number
  676. int located        ;number of files in fileset
  677. int mask        ;attribute bits used with attrib command
  678. int main_choice        ;copy of menu choice 
  679. int missing        ;number of files missing from a fileset
  680. int optline        ;line number within menu
  681. int product_entry    ;start offset within options table for product
  682. int sid            ;popup identifier
  683.  
  684. logical inconsistant    ;set when not all exe files time/date match
  685. logical deleted        ;set when file deleted
  686. logical deleting    ;set when deleting a fileset
  687. logical guess_reg    ;set if I think TM is registered shareware
  688. logical installed    ;set when a product has been installed
  689. logical pathok        ;set when installation directory is valid
  690. logical proceed        ;gp progress state
  691.  
  692. var char,1            ;gp
  693. var char2,1            ;gp
  694. var command,40
  695. var professional,12,'Professional'
  696. var comspec,68,$COMSPEC        ;environment variable
  697. var desc,68            ;file description line
  698. var descs,68,occurs4        ;complete file description
  699. var dest,68,'C:\FMP'        ;default installation directory
  700. var dest_space,12        ;character string free space
  701. var lmess,70            ;long message - for .bat file
  702. var file,12            ;gp
  703. var fname,14            ;only used if mono 
  704. var ovrfile,12            ;name of file to generate with SCR
  705. var filename,8,' INSTALL'    ;name of this task
  706. var fmpdir,68,$fmpdir        ;environment variable
  707. var formname,20            ;holds scr form names
  708. var inserts,12,occurs20        ;menu of files in fileset
  709. var max_space,12,'     1300000'    ;maximum disc space required
  710. var message,40
  711. var min_space,12,'      500000'    ;minimum disc space required
  712. var null,1            ;gp
  713. var orig_drive,1        ;drive identifier of floppy
  714. var selection,16
  715. var shareware,12,'Shareware   '    ;inserted into sign-on screen
  716. var return_loc,7        ;dynamic labels
  717. var textline,80            ;for reading file descriptions
  718. var unpack,12            ;name of self-extracting archive file
  719. var vidline,80            ;holds contents of one screen line
  720. var workline,200                ;workarea
  721.  
  722. vconst cel,55            ;clear to end of line
  723. vconst cep,56            ;clear to end of screen
  724. vconst cls,11            ;clear screen
  725. vconst enb,74            ;enable cursor
  726. vconst dsb,75            ;disable cursor
  727. vconst block,101        ;enable block cursor
  728.  
  729. ;TABLES
  730.  
  731. var options,1,occurs 15,
  732. 'AAAUU'        ;Unregistered shareware
  733. 'UUUAU'        ;Registered shareware
  734. 'UUUUA'        ;Taskmaster Professional
  735.  
  736. var product_names,33,occurs 4,
  737. '                                 '
  738. 'Taskmaster Professional          '
  739. 'Registered Shareware Taskmaster  '
  740. 'Unregistered Shareware Taskmaster'
  741.  
  742. var essential_files,12,occurs9,
  743. 'FMPVT52.DEF '
  744. 'TM.EXE      '
  745. 'LIST.COM    '
  746. 'LOGON.OVR   '
  747. 'SCR.EXE     '
  748. 'VENDOR.DOC  '
  749. 'INSTALL.TSK '
  750. 'INSTALL.OVR '
  751. 'LICENCE.FMP '
  752.  
  753. var archives,8,occurs 5,
  754. 'TMISSUE ' 
  755. 'TMEXAM  '
  756. 'TMMANUAL'
  757. 'TMREG   '
  758. 'TMPRO   '
  759.  
  760. ;files starting in lowercase require processing with SCR
  761.  
  762. var issue_files,12,occurs 100,
  763. '0           '
  764. 'CATALOGV.EUC'        ;Unregistered shareware
  765. 'CATALOG.EUC '
  766. 'CONFIG.TMS  '
  767. 'cONFIG.TSK  '
  768. 'EXAMPLES.TMS'
  769. 'FMPVT52.DEF '
  770. 'LICENCE.FMP '
  771. 'LIST.COM    '
  772. 'LOGON.OVR   '
  773. 'oVERVIEW.MAC'
  774. 'OVERVIEW.TSK'
  775. 'README.FMP  '
  776. 'SCR.EXE     '
  777. 'SHARETM.FMP '
  778. 'iNTRO.MAC   '
  779. 'INTRO.TSK   '
  780. 'sMART.TSK   '
  781. 'sTANDARD.TSK'
  782. 'VENDOR.DOC  '
  783. 'TM.EXE      '
  784. '            '
  785. '1           '
  786. 'bROWSE.TSK  '        ;Examples
  787. 'dIRECTOR.TSK'
  788. 'hELP.MAC    '
  789. 'HELP.TSK    '
  790. 'hOTEMENU.TSK'
  791. 'hVMENU.TSK  '
  792. 'mENUONE.TSK '
  793. 'NATO.TSK    '
  794. 'sWEEP.TSK   '
  795. 'tEST.TSK    '
  796. 'tMDEV.TSK   '
  797. 'wHEREIS.TSK '
  798. 'wORDPROC.TSK'
  799. '            '
  800. '2           '
  801. 'pRINTMAN.TSK'         ;Manuals
  802. 'pRINTSCR.TSK' 
  803. 'sCRMAN.MAC  '
  804. 'SCRMAN.TSK  '
  805. 'tMMAN.MAC   '
  806. 'TMMAN.TSK   '
  807. '            '
  808. '3           '
  809. 'CATALOGV.EUC'        ;Registered Shareware
  810. 'CATALOG.EUC '
  811. 'CONFIG.TMS  '
  812. 'cONFIG.TSK  '
  813. 'EUC.EXE     '
  814. 'EUC.OVR     '
  815. 'EUC.PIN     '
  816. 'FMPVT52.DEF '
  817. 'LIST.COM    '
  818. 'LOGON.OVR   '
  819. 'SCR.EXE     '
  820. 'sMART.TSK   '
  821. 'sTANDARD.TSK'
  822. 'TIDY.EXE    '
  823. 'TM.EXE      '
  824. '            '
  825. '4           '
  826. 'CATALOGV.EUC'        ;Taskmaster Professional
  827. 'CATALOG.EUC '
  828. 'CONFIG.TMS  '
  829. 'cONFIG.TSK  '
  830. 'EUC.EXE     '
  831. 'EUC.OVR     '
  832. 'EUC.PIN     '
  833. 'FMPVT52.DEF '
  834. 'LIST.COM    '
  835. 'LOGON.OVR   '
  836. 'SCR.EXE     '
  837. 'sMART.TSK   '
  838. 'sTANDARD.TSK'
  839. 'TIDY.EXE    '
  840. 'TM.EXE      '
  841. '            '
  842. '99          ' ;removed if found
  843. 'TMISSUE.EXE '
  844. 'TMISSUE.COM '
  845. 'TMEXAM.EXE  '
  846. 'TMEXAM.COM  '
  847. 'TMMANUAL.EXE'
  848. 'TMMANUAL.COM'
  849. 'INSTALL.OVR '
  850. 'INSTALL.TSK '
  851. '*.OVR       '
  852. 'EUC.PIN     '
  853. 'EUC.EXE     '
  854. 'TIDY.EXE    '
  855.  
  856. var corefiles,12,occurs 13,
  857. 'FMPVT52.DEF '
  858. 'GO.BAT      '
  859. 'INSTALL.OVR '
  860. 'INSTALL.TSK '
  861. 'LICENCE.FMP '
  862. 'LIST.COM    '
  863. 'LOGON.OVR   '
  864. 'TM.EXE      '
  865. 'VENDOR.DOC  '
  866.  
  867. ;Issue file descriptions. No line must exceed 68 characters and each
  868. ;must terminate with a '\' Maximum of 4 lines per file description.
  869.  
  870. var filedescs,7000,
  871. '.BROWSE.TSK\'
  872. 'Example task that displays the names of files in selected directory\'
  873. 'and allows built-in and user-configured operations to be performed\'
  874. 'on them.\'
  875. '\'
  876. '.CATALOGV.EUC\'
  877. 'This is a backup copy of CATALOG.EUC so that you can restore the\'
  878. 'file CATALOG.EUC if required.\'
  879. '\'
  880. '.CATALOG.EUC\'
  881. 'A sample encrypted catalogue of usernames and passwords for use with\'
  882. 'the EUC package. Used by example tasks STANDARD.TSK and SMART.TSK.\'
  883. '\'
  884. '.CONFIG.TMS\'
  885. 'A sample service configuration file created by CONFIG.TSK and read\'
  886. 'by STANDARD.TSK.  The file can be modified using CONFIG.TSK\'
  887. '\'
  888. '.CONFIG.TSK\'
  889. 'This task enables you to configure one or more sets of end-user\'
  890. 'services. The service information so provided is then accessed\'
  891. 'by STANDARD.TSK which presents the end-user with menus to access\'
  892. 'these services.\'
  893. '\'
  894. '.DIRECTOR.TSK\'
  895. 'This task runs the DOS DIR command, captures its output in a file\' 
  896. 'and then displays it in on the screen in colour.\'
  897. '\'
  898. '.EUC.EXE\'
  899. 'EUC is the End User Computing option and is provided as a PROTEAN\'
  900. 'runtime system, i.e. it is written in the PROTEAN (C) 4GL language.\'
  901. 'It enables a system administrator to catalogue,maintain, support\'
  902. 'and monitor a group of end-users.\'
  903. '\'
  904. '.EUC.OVR\'
  905. 'This file is produced by SCR.EXE and contains screen templates used\'
  906. 'by EUC.EXE\'
  907. '\'
  908. '.EUC.PIN\'
  909. 'This file contains PROTEAN generated code, i.e. a compiled program\'
  910. 'which is executed when EUC.EXE is run.\'
  911. '\'
  912. '.EXAMPLES.TMS\'
  913. 'This is a further sample set of services for use with STANDARD.TSK.\'
  914. 'See also CONFIG.TMS\'
  915. '\'
  916. '.FMPVT52.DEF\'
  917. 'A file containing VT52 escape sequences supported by the Taskmaster\'
  918. 'VT52 driver. VT52 is a video protocol used to control the display of\'
  919. 'data on your screen.\'
  920. '\'
  921. '.HELP.MAC\'
  922. 'This file holds source screen templates for use with HELP.TSK. The\'
  923. 'file has to be processed by SCR.EXE before the screens can be used.\'
  924. 'The installer runs SCR to produce HELP.OVR \'
  925. '\'
  926. '.HELP.TSK\'
  927. 'An example task that demonstrates the use of colour and windows in\'
  928. 'screen templates and how easy it is to create help and information\'
  929. 'screens for end-users.\'
  930. '\'
  931. '.HOTEMENU.TSK\'
  932. 'A simple example task demonstrating the use of bounce-bar menus and\'
  933. 'how to provide a context sensitive help system.\'
  934. '\'
  935. '.HVMENU.TSK\'
  936. 'This example task demonstrates the use of horizontal and vertical\'
  937. 'bounce-bar menus by way of a simple game that involves you in\'
  938. 'guessing the correct combination to a safe. It also shows how simple\'
  939. 'but effective line graphics can be produced using SCR.\'
  940. '\'
  941. '.INTRO.MAC\'
  942. 'Holds the source screen templates required by INTRO.TSK.\'
  943. '\'
  944. '.INTRO.TSK\'
  945. 'This is a multi-level menu system that provides a detailed insight\'
  946. 'into Taskmaster and describes its many applications.\'
  947. '\'
  948. '.LICENCE.FMP\'
  949. 'This is the end-user license agreement.  It details conditions of\'
  950. 'use for Shareware Taskmaster and the terms under which it may be\'
  951. 'evaluated and distributed.\'
  952. '\'
  953. '.LIST.COM\'
  954. 'A public domain file viewer.\'
  955. '\'
  956. '.LOGON.OVR\'
  957. 'A file containing internal screen templates required by Taskmaster.\'
  958. '\'
  959. '.MENUONE.TSK\'
  960. 'This  task  is an example of a simple menu which uses  the  SAVE \' 
  961. 'and RESTORE commands to remember the names of several applications.\'
  962. '\'
  963. '.NATO.TSK\'
  964. 'An example task that reads the text you type and converts it into\'
  965. 'the NATO Phonetic alphabet. Demonstrates generalised capabilities\'
  966. 'of the Taskmaster JCL.\'
  967. '\'
  968. '.OVERVIEW.MAC\'
  969. 'Holds the source screen templates required by OVERVIEW.TSK.\'
  970. '\'
  971. '.OVERVIEW.TSK\'
  972. 'This task is provided as a top-level interface to all the supplied\'
  973. 'tasks. It is therefore recommended that you load this task first if\'
  974. 'evaluating Taskmaster for the first time.\'
  975. '\'
  976. '.PRINTMAN.TSK\'
  977. 'This task will print all or parts of the Taskmaster on-line manual.\'
  978. 'Because the manual contains line graphics, your printer will need\'
  979. 'to support the IBM character set.\'
  980. '\'
  981. '.PRINTSCR.TSK\'
  982. 'This task will print all or parts of the SCR on-line manual.\'
  983. 'Because the manual contains line graphics, your printer will need\'
  984. 'to support the IBM character set.\'
  985. '\'
  986. '.README.FMP\'
  987. 'Printable details of files supplied with the evaluation disc and\' 
  988. 'its system requirements.\'
  989. '\'
  990. '.SCRMAN.MAC\'
  991. 'Holds the source screen templates required by SCRMAN.TSK.\'
  992. '\'
  993. '.SCRMAN.TSK\'
  994. 'This task offers an on-line manual for the SCR product. The screens\'
  995. 'are held in SCRMAN.MAC and processed by SCR into SCRMAN.OVR\'
  996. '\'
  997. '.SCR.EXE\'
  998. 'This is the screen template processor program; essential for the\'
  999. 'rapid construction of menus, data-capture and help screens etc.\'
  1000. 'The screens displayed by this Installer were created using SCR.\'
  1001. '\'
  1002. '.SHARETM.FMP\'
  1003. 'Printable Details of the examples\'
  1004. '\'
  1005. '.SMART.TSK\'
  1006. 'This task is an alternative example of a configurable menu system.\'
  1007. 'Like STANDARD.TSK, it also interfacew with the EUC Catalogue for\'
  1008. 'user-login and password verification.\'
  1009. '\'
  1010. '.STANDARD.TSK\'
  1011. 'See also CONFIG.TSK.  STANDARD.TSK is a pre-written task providing\'
  1012. 'an end-user menu interface to services (applications) configured\'
  1013. 'using CONFIG.TSK.  It offers a range of customisation features for\'
  1014. 'each service.  Use it if you do not wish to write your own task.\'
  1015. '\'
  1016. '.SWEEP.TSK\'
  1017. 'As its name implies, this task sweeps the directory structure for\'
  1018. 'all files matching a wildcard specification and optionally writes\'
  1019. 'their names to a .BAT file. Each filename can be sustituted into\'
  1020. 'a DOS command if required.\'
  1021. '\'
  1022. '.TEST.TSK\'
  1023. 'This is a skeletal task for use with TMDEV.TSK\'
  1024. '\'
  1025. '.TIDY.EXE\'
  1026. 'This program examines a .TSK file (Taskmaster JCL file) and reforms\'
  1027. 'its block structure in a consistent manner.\'
  1028. '\'
  1029. '.TMDEV.TSK\'
  1030. 'An example of a simple development harness. This particular harness\'
  1031. 'allows you to develop Taskmaster tasks but could be easily changed\'
  1032. 'to support any language\'
  1033. '\'
  1034. '.TMMAN.MAC\'
  1035. 'Holds the source screen templates required by TMMAN.TSK.\'
  1036. '\'
  1037. '.TMMAN.TSK\'
  1038. 'This task provides an on-line manual for the Taskmaster JCL.\'
  1039. 'Screens are held in SCRMAN.MAC and processed by SCR into TMMAN.OVR\'
  1040. '\'
  1041. '.TM.EXE\'
  1042. 'This is either the Unregistered shareware, Registered shareware or\'
  1043. 'Professional version. The installer you have loaded is a task which\'
  1044. 'is currently being interpreted by TM.EXE\'
  1045. '\'
  1046. '.WHEREIS.TSK \'
  1047. 'Searches for a named file using the same algorithm as DOS uses\'
  1048. 'when asked to locate files.  It helps to pin-point the actual \'
  1049. 'copy DOS will use when multiple copies exist\'
  1050. '\'
  1051. '.WORDPROC.TSK\'
  1052. 'A Wordprocessing harness that stores details about your\' 
  1053. 'wordprocessor or text editor and descriptions and edit times of\'
  1054. 'your most recently used files.\'
  1055. '\'
  1056.  
  1057. end
  1058. goback 1START
  1059.  
  1060. endtask
  1061.